home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / databases / webloadvance.lha / BoyScouts / WeblosAdvancement / IndStatusReport.sbp < prev    next >
Encoding:
Text File  |  1993-11-27  |  3.2 KB  |  43 lines
  1. OPEN FILE "Work:BoyScouts/WeblosAdvancement/WeblosAdvancement"
  2.  
  3. REQUEST "REPORT TO PRINTER?","",1,a%
  4. IF a% THEN PRINT;
  5. REPORT 
  6.  
  7. HEADING
  8. ? 
  9. ? @26;"Individual Scout Status Report"
  10. ? 
  11. ? 
  12. ? 
  13. END HEADING
  14.  
  15. SELECT  NEWLINE @3; BF ; UL ;&30 ScoutName.WeblosAdvancement; ATTR OFF;
  16.  NEWLINE @5; BF ; UL ;"Badge/Activity"; UL OFF ;@21; UL ;"Completion Date"; UL OFF ;@38; UL ;"Requirements Completed"; ATTR OFF;
  17. @38; BF ; UL ;"1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 "; ATTR OFF;
  18. @7;"Weblos Badge";@21;&11 WeblosBadgeComp.WeblosAdvancement;@38;&2 WeblosBadge_1.WeblosAdvancement;&2 WeblosBadge_2.WeblosAdvancement;
  19. &2 WeblosBadge_3.WeblosAdvancement;&2 WeblosBadge_4.WeblosAdvancement;&2 WeblosBadge_5.WeblosAdvancement;
  20. &2 WeblosBadge_6.WeblosAdvancement;&2 WeblosBadge_7a.WeblosAdvancement;&2 WeblosBadge_7b.WeblosAdvancement;
  21. &2 WeblosBadge_7c.WeblosAdvancement;&2 WeblosBadge_7c.WeblosAdvancement;@59;&2 WeblosBadge_7d.WeblosAdvancement;
  22. @62;&2 WeblosBadge_7e.WeblosAdvancement;@65;&2 WeblosBadge_7f.WeblosAdvancement;@68;&2 WeblosBadge_7g.WeblosAdvancement;
  23. @71;&2 WeblosBadge_7h.WeblosAdvancement;@74;&2 WeblosBadge_8a.WeblosAdvancement NEWLINE @5;"Arrow of Light";
  24. @21;&11 ArrowOfLightCmp.WeblosAdvancement;@38;&2 ArrowOfLight1.WeblosAdvancement;&2 ArrowOfLight2a.WeblosAdvancement;
  25. &2 ArrowOfLight2b.WeblosAdvancement;&2 ArrowOfLight2c.WeblosAdvancement;&2 ArrowOfLight2d.WeblosAdvancement;
  26. &2 ArrowOfLight3.WeblosAdvancement;&2 ArrowOfLight4a.WeblosAdvancement;&2 ArrowOfLight4b.WeblosAdvancement;
  27. &2 ArrowOfLight5.WeblosAdvancement;&2 ArrowOfLight6.WeblosAdvancement NEWLINE  NEWLINE @11;"Aquanaut";
  28. @21;&11 AquanautComp.WeblosAdvancement;@38;&2 Aquanaut_1.WeblosAdvancement;&2 Aquanaut_2.WeblosAdvancement;
  29. &2 Aquanaut_3.WeblosAdvancement;&2 Aquanaut_4.WeblosAdvancement;&2 Aquanaut_5.WeblosAdvancement;&2 Aquanaut_6.WeblosAdvancement;
  30. &2 Aquanaut_7.WeblosAdvancement NEWLINE @13;"Artist";@21;&11 ArtistComp.WeblosAdvancement;@38;&2 Artist_1.WeblosAdvancement;
  31. &2 Artist_2.WeblosAdvancement;&2 Artist_3.WeblosAdvancement;&2 Artist_4.WeblosAdvancement;&2 Artist_5.WeblosAdvancement;
  32. &2 Artist_6.WeblosAdvancement;&2 Artist_7.WeblosAdvancement NEWLINE @11;"Athelete";@21;&11 AthleteComp.WeblosAdvancement;
  33. @38;&2 Athlete_1.WeblosAdvancement;&2 Athlete_2.WeblosAdvancement;&2 Athlete_3.WeblosAdvancement;&2 Athlete_4.WeblosAdvancement;
  34. &2 Athlete_5.WeblosAdvancement;&2 Athlete_6.WeblosAdvancement;&2 Athlete_7.WeblosAdvancement;&2 Athlete_8.WeblosAdvancement;
  35. &2 Athlete_9.WeblosAdvancement NEWLINE @12;"Citizen";@21;&11 CitizenComp.WeblosAdvancement;@38;&2 Citizen_1.WeblosAdvancement;
  36. &2 Citizen_2.WeblosAdvancement;&2 Citizen_3.WeblosAdvancement;&2 Citizen_4.WeblosAdvancement;&2 Citizen_5.WeblosAdvancement;
  37. &2 Citizen_6.WeblosAdvancement;&2 Citizen_7.WeblosAdvancement;&2 Citizen_8.WeblosAdvancement;&2 Citizen_9.WeblosAdvancement;
  38. &2 Citizen_10.WeblosAdvancement;@59;&2 Citizen_11.WeblosAdvancement;@62;&2 Citizen_12.WeblosAdvancement;
  39. @65;&2 Citizen_13.WeblosAdvancement;@68;&2 Citizen_14.WeblosAdvancement;@71;&2 Citizen_15.WeblosAdvancement;
  40. @74;&2 Citizen_16.WeblosAdvancement NEWLINE @7;"Communicator" NEWLINE @10;"Craftsmen" NEWLINE @11;"Engineer" NEWLINE  NEWLINE  NEWLINE  NEWLINE  NEWLINE  NEWLINE  NEWLINE ; EJECT
  41. WHERE  ASK
  42. ORDER  ASK
  43.